home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 003 / scrngraf.prg < prev    next >
Encoding:
Text File  |  1986-02-06  |  1.6 KB  |  87 lines
  1. **  Here' a neat technique for dBase III screen
  2. *   graphics.  The CHR's are from the Basic manual.
  3. *   Add and modify as your imagination expands the concept.
  4. *   Have fun!!  Give $5.00 to your favorite charity.
  5.  
  6. **  Enter these in memvars.
  7. *   Single line graphics.
  8. *   SL means single line
  9. *   STLC means single top left corner
  10. *   You figure out the rest
  11.  
  12. Set talk off
  13.  
  14. SL   = CHR(196)
  15. SL   = SL+SL+SL+SL+SL+SL+SL+SL+SL+SL
  16. SL   = SL+SL+SL+SL+SL+SL+SL
  17. STLC = CHR(218)
  18. STRC = CHR(191)
  19. SLLC = CHR(192)
  20. SLRC = CHR(217)
  21. SLT  = CHR(195)
  22. SRT  = CHR(180)
  23. SV   = CHR(179)
  24.  
  25. *  Double line graphics
  26.  
  27. DL   = CHR(205)
  28. DL   = DL+DL+DL+DL+DL+DL+DL+DL+DL+DL
  29. DL   = DL+DL+DL+DL+DL+DL+DL
  30. DTLC = CHR(201)
  31. DTRC = CHR(187)
  32. DLLC = CHR(200)
  33. DLRC = CHR(188)
  34. DLT  = CHR(204)
  35. DRT  = CHR(185)
  36. DV   = CHR(186)
  37.  
  38. *   Save these to a mem file
  39.  
  40. Set safety off
  41. SAVE TO SCRNGRA
  42. Set safety on
  43.  
  44.  
  45. **  Here is a skeleton screen showing how the memvars are used.
  46.  
  47.  
  48.  
  49. ***    MENU.PRG
  50.  
  51. CLEAR
  52. RESTORE FROM SCRNGRA
  53. ROW=3
  54. @  2,5  SAY DTLC
  55. @  2,6  SAY DL
  56. @  2,76 SAY DTRC
  57. DO WHILE ROW<10
  58. @ ROW,5  SAY DV
  59. @ ROW,76 SAY DV
  60. ROW=ROW+1
  61. ENDDO
  62. @ ROW,5 SAY  DLT
  63. @ ROW,6 SAY DL
  64. @ ROW,76 SAY DRT
  65. ROW=ROW+1
  66. DO WHILE ROW<22
  67. @ ROW,5  SAY DV
  68. @ ROW,76 SAY DV
  69. ROW=ROW+1
  70. ENDDO
  71. @ ROW,5  SAY DLLC
  72. @ ROW,6  SAY DL
  73. @ ROW,76 SAY DLRC
  74. TITLE1='Compliments of Don Ludwig'
  75. TITLE2='Business Services Group, Inc.'
  76. TITLE3='312-934-3584'
  77. LEAD1=35-(LEN(TITLE1)/2)
  78. LEAD2=35-(LEN(TITLE2)/2)
  79. LEAD3=35-(LEN(TITLE3)/2)
  80. @ 5,6 SAY SPACE(LEAD1)+TITLE1
  81. @ 6,6 SAY SPACE(LEAD2)+TITLE2
  82. @ 7,6 SAY SPACE(LEAD3)+TITLE3
  83. @ 23,0
  84. RETURN
  85. *  End MENU.PRG
  86. ** Enjoy.
  87.